home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Musik / Misc / Amster / Rexx / Songplayer.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2000-05-27  |  453 b   |  17 lines
  1. /* Starts SongPlayer, or Adds song to playlist of running copy */
  2.  
  3. Options Results
  4. Parse Arg FileName
  5.  
  6. If Show('P','SONGPLAYER.1') Then Do
  7.   Address 'SONGPLAYER.1' 'ADD 'FileName
  8.   Address 'SONGPLAYER.1' 'GET_STATE'
  9.   State = Result
  10.   If State = "STOP" | STATE = "PAUSE" Then Do
  11.     Address 'SONGPLAYER.1' 'NEXT'
  12.     Address 'SONGPLAYER.1' 'PLAY'
  13.   End
  14. End
  15. Else Address Command 'Work:Multimedia/Songplayer/Songplayer GUI T=5 VOL=64 EXP=0 'FileName
  16. Exit
  17.